home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / mfix0712.zip / MBS30712.FIX < prev    next >
Text File  |  1992-07-12  |  11KB  |  279 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against E:\RBBS\TEMP\RBBSSUB3.BAS to produce E:\RBBS\CHAT\RBBSSUB3.BAS
  3. * E:\RBBS\TEMP\RBBSSUB3.BAS:  Date 7-7-1992  Size 132992 bytes
  4. * ------------[ Created 07-12-1992 19:57:27 ]------------
  5. * REPLACING old line(s) by new
  6. 33160 CALL UpdtCalr ("Sysop began chat",1)
  7.       ZPageStatus$ = ""
  8. * ------[ first line different ]------
  9.       ZSysopGreeting$ = "Hi " + ZFirstName$ + ", this is " + _       ' DD062801/ANSICHAT
  10.                         ZSysopFirstName$ + " " + ZSysopLastName$ + _ ' DD062801/ANSICHAT
  11.                         ".  Sorry to break in and CHAT but..."       ' DD062801/ANSICHAT
  12.  
  13.       IF NOT ZLimitMinsPerSession THEN _                       ' LK 08/17/91
  14.       CALL TimeBack (1)
  15.  
  16.     IF ZANSITest = ZTrue OR ZWasGR > 1 THEN                        ' DD062801/ANSICHAT
  17.          CALL ANSIChat                                               ' DD062801/ANSICHAT
  18.       ELSE
  19.          CALL SkipLine (1)
  20.          CALL QuickTPut1 (ZSysopGreeting$)
  21.          CALL SysopChat
  22.       END IF
  23. 'Sysop chat allows overstay of Scheduled Events- no way to control giveback
  24.       IF NOT ZLimitMinsPerSession THEN _                       ' LK 08/17/91
  25.       CALL TimeBack (2)
  26.       ZCommPortStack$ = CHR$(13)
  27.       GOTO 33155
  28. '
  29. '
  30. ' * UP / CTRL-UP: INCREASE THE ON-LINE USER'S SECURITY BY ONE / FIVE
  31. '
  32. '
  33. * REPLACING old line(s) by new
  34. 43068 ' $SUBTITLE: 'SaveProf - subroutine to read a user profile'
  35. ' $PAGE
  36. '
  37. '  NAME    -- SaveProf
  38. '
  39. '  INPUTS  --     PARAMETER                    MEANING
  40. '              ZBPS
  41. '              ZEightBit
  42. '              ZExitToDoors
  43. '              ZWasGR
  44. '              ZMsgRec$
  45. '              ZNodeRecIndex
  46. '              ZSysop
  47. '              ZUpperCase
  48. '              ZTimeLoggedOn$
  49. '              ZPrivateDoor
  50. '              ZReliableMode
  51. '
  52. '  OUTPUTS -- NONE
  53. '
  54. '  PURPOSE -- Saves a user's options and communications parameters
  55. '             in the node record when a user exits to a "door" so
  56. '             that he is in the same status as when he exited.
  57. '
  58.       SUB SaveProf (IParm) STATIC
  59. * ------[ first line different ]------
  60.       ON IParm GOTO 43070,43080,43075
  61. * REPLACING old line(s) by new
  62. 43070 ZActiveMessageFile$ = ZOrigMsgFile$
  63.       ZSubParm = 3
  64.       CALL FileLock
  65.       CALL OpenMsg
  66.       FIELD 1, 128 AS ZMsgRec$
  67.       GET 1,ZNodeRecIndex
  68.       IF ZGlobalSysop THEN _
  69.          MID$(ZMsgRec$,1,30) = "SYSOP" + SPACE$(25)
  70.       MID$(ZMsgRec$,40,2) = STR$(ZExitToDoors)
  71.       MID$(ZMsgRec$,42,2) = STR$(ZEightBit)
  72.       MID$(ZMsgRec$,44,2) = STR$(ZBPS)
  73.       MID$(ZMsgRec$,46,2) = STR$(ZUpperCase)
  74.       MID$(ZMsgRec$,48,5) = MKS$(ZNumDnldBytes!) + MID$(STR$(-ZBatchTransfer),2)
  75.       MID$(ZMsgRec$,53,2) = STR$(ZWasGR)
  76.       MID$(ZMsgRec$,55,2) = STR$(ZSysop)
  77.       MID$(ZMsgRec$,65,3) = CHR$(VAL(LEFT$(ZOrigTimeLoggedOn$,2))) + _
  78.                             CHR$(VAL(MID$(ZOrigTimeLoggedOn$,4,2))) + _
  79.                             CHR$(VAL(MID$(ZOrigTimeLoggedOn$,7,2)))
  80.       MID$(ZMsgRec$,72,2) = STR$(ZPrivateDoor)
  81.       MID$(ZMsgRec$,74,1) = MID$(STR$(ZTransferFunction),2,1)
  82.       MID$(ZMsgRec$,75,1) = ZWasFT$
  83.       MID$(ZMsgRec$,113,2) = MKI$(CINT(ZTimeCredits!)/60)
  84.       MID$(ZMsgRec$,79,8) = LEFT$(ZDooredTo$+"        ",8)
  85.       MID$(ZMsgRec$,91,2) = STR$(ZReliableMode)
  86.       CALL BreakFileName (ZCurPUI$,ZOutTxt$,ZUserIn$,ZWasZ$,ZFalse)
  87.       MID$(ZMsgRec$,93,8) = ZUserIn$ + SPACE$(8 - LEN(ZUserIn$))
  88.       IF ZLocalUser THEN _
  89.          ZWasZ$ = ZCarriageReturn$ + ZCarriageReturn$ _
  90.       ELSE ZWasZ$ = " 0"
  91.       MID$(ZMsgRec$,101,2) = ZWasZ$
  92.       MID$(ZMsgRec$,103,2) = STR$(ZLocalUserMode)
  93.       ZConfName$ = LEFT$(ZConfName$,INSTR(ZConfName$ + " "," ") - 1)
  94.       MID$(ZMsgRec$,105,8) = ZConfName$ + SPACE$(8 - LEN(ZConfName$))
  95.       MID$(ZMsgRec$,115,1) = MID$(STR$(ZAutoLogoffReq),2,1)
  96.       MID$(ZMsgRec$,117,2) = STR$(ZMenuIndex)
  97.       MID$(ZMsgRec$,119,2) = LEFT$(DATE$,2)
  98.       MID$(ZMsgRec$,121,2) = MID$(DATE$,4,2)
  99.       MID$(ZMsgRec$,123,2) = RIGHT$(DATE$,2)
  100.       MID$(ZMsgRec$,125,2) = LEFT$(TIME$,2)
  101.       MID$(ZMsgRec$,127,2) = MID$(TIME$,4,2)
  102. ' ***   Save additional parameters for door restoral
  103. * ------[ first line different ]------
  104. * INSERTING new line(s)
  105. 43075 CALL OpenOutW (ZNodeWorkDrvPath$+"DRST"+ZNodeFileID$+".DEF")
  106.       CALL PrintWorkA (STR$(ZLimitMinsPerSession))
  107.       CALL PrintWorkA (ZWasNG$)
  108.       CALL PrintWorkA (ZIndivValue$)
  109.       CALL PrintWorkA (ZOrigDateTimeOn$)
  110.       CALL PrintWorkA (ZOrigTimeLoggedOn$)
  111.       CALL PrintWorkA (STR$(ZUserFileIndex))
  112.       CALL PrintWorkA (ZUpldDir$)
  113.       ZOutTxt$ = STR$(ZUpldDir$ = ZFMSDirectory$ OR ZLimitSearchToFMS)
  114.       CALL PrintWorkA (ZOutTxt$)
  115.       CALL PrintWorkA (ZCBaud$)
  116.       CALL PrintWorkA (STR$(ZBankTime))        'lk 08/17/91 Save for Xpress
  117.       CALL PrintWorkA (STR$(ZBPS))                   'Pe 07/11/92
  118.       Call PrintWorkA (STR$(ZCBPS))                  'Pe 07/11/92
  119.       CLOSE 2
  120. If IPARM = 3 Then Exit Sub       'Pe 07/12/92
  121. * REPLACING old line(s) by new
  122. 44003 ZUserLogonTime! = VAL(HourLoggedOn$) * 3600! + _
  123.                         VAL(MinLoggedOn$) * 60! + _
  124.                         VAL(SecLoggedOn$)
  125.       HourLoggedOn$ = ""
  126.       MinLoggedOn$ = ""
  127.       SecLoggedOn$ = ""
  128.       IF ZMinsPerSession < 1 THEN _
  129.          ZMinsPerSession = 3
  130.       IF NOT ZEightBit THEN _
  131.          OUT ZLineCntlReg,&H1A
  132.       IF LEFT$(ZMsgRec$,7) = "SYSOP  " THEN _
  133.          ZFirstName$ = ZSysopPswd1$ : _
  134.          ZActiveUserName$ = ZSysopPswd1$ + " " + ZSysopPswd2$ _
  135.       ELSE ZFirstNameEnd = INSTR(ZMsgRec$," ") : _
  136.            ZLastNameEnd = INSTR(ZFirstNameEnd + 1,ZMsgRec$ + " ","  ") : _
  137.            ZFirstName$ = LEFT$(ZMsgRec$,ZFirstNameEnd-1) : _
  138.            ZLastName$ = MID$(ZMsgRec$,ZFirstNameEnd + 1,ZLastNameEnd - (ZFirstNameEnd + 1)) : _
  139.            ZActiveUserName$ = MID$(ZFirstName$ + " " + ZLastName$,1,31)
  140.       ZWasZ$ = ZFirstName$
  141.       CALL OpenWork (2,ZNodeWorkDrvPath$+"DRST"+ZNodeFileID$+".DEF")
  142.       CALL ReadDir (2,1)
  143.       ZLimitMinsPerSession = VAL (ZOutTxt$)
  144.       CALL ReadDir (2,1)
  145.       ZWasNG$ = ZOutTxt$
  146.       CALL ReadDir (2,1)
  147.       ZIndivValue$ = ZOutTxt$
  148.       CALL ReadDir (2,1)
  149.       ZOrigDateTimeOn$ = ZOutTxt$
  150.       CALL ReadDir (2,1)
  151.       ZOrigTimeLoggedOn$ = ZOutTxt$
  152.       CALL ReadDir (2,1)
  153.       ZUserFileIndex = VAL(ZOutTxt$)
  154.       CALL ReadDir (2,1)
  155.       ZUpldDoor$ = ZOutTxt$
  156.       CALL ReadDir (2,1)
  157.       ZFMSDoor = VAL(ZOutTxt$)
  158.       CALL ReadDir (2,1)
  159.       ZCBaud$ = ZOutTxt$
  160.       CALL ReadDir (2,1)                  'lk 08/17/91 added for Silver Xpress
  161.       ZTempBankTime = VAL (ZOutTxt$)      'lk 08/17/91 for Xpress
  162. * ------[ first line different ]------
  163.       CALL ReadDir (2,1)                  'Pe 07/11/92
  164.       ZBPS = Val(ZOutTxt$)                ' Pe 07/11/92
  165.       CALL ReadDir (2,1)                  'Pe 07/11/92
  166.       ZCBPS = Val(ZOutTxt$)                ' Pe 07/11/92
  167.       CLOSE 2
  168.       CALL DoorReturn
  169.       END SUB
  170. * REPLACING old line(s) by new
  171. 57005 IF CallersFileIndexTemp! < 1 OR ZRet THEN _
  172. * ------[ first line different ]------
  173.          CLOSE 4 : _                                ' Pe 07/09/92
  174.          GOTO 57101
  175. * REPLACING old line(s) by new
  176. 57100 IF INSTR(ZOutTxt$,"LOGON DENIED") THEN _
  177.          IF NOT ZSysop THEN _
  178.             RETURN
  179.       IF ZJumpSearching THEN _
  180.          ZWasDF$ = ZOutTxt$ : _
  181.          CALL AllCaps (ZWasDF$) : _
  182.          IF INSTR(ZWasDF$,ZJumpTo$) = 0 THEN _
  183.             RETURN _
  184.          ELSE CALL CheckColor (ZOutTxt$,ZJumpTo$,"") : _
  185.               ZJumpSearching = ZFalse
  186.       ZSubParm = 5
  187.       CALL TPut
  188.       WasX = 1
  189.       CALL AskMore ("",ZTrue,ZTrue,WasX,ZFalse)
  190. * ------[ first line different ]------
  191.       IF ZSubParm = -1 THEN _                                        ' RH070402
  192.          GOTO 57102 _                                                ' RH070402
  193.       ELSE IF ZNo THEN _                                             ' RH070402
  194.          GOTO 57101                                                  ' RH070402
  195.       RETURN
  196. * REPLACING old line(s) by new
  197. 57102 ZJumpSupported = ZFalse
  198. * ------[ first line different ]------
  199.       IF OrigCal$ <> ZCallersFile$ THEN _                            ' RH070401
  200.          ZCallersFile$ = OrigCal$ : _
  201.          CALL SetCall
  202.       END SUB
  203. * REPLACING old line(s) by new
  204. 58181 MarkingFiles = ZFalse
  205.       IF (WasX$ = "D" OR WasX$ = "M") THEN IF CanDnld THEN _
  206.  MarkingFiles = (WasX$ = "M") : _
  207.          AtEndList = ZFalse : _                                  'PE 08/04/91
  208. * ------[ first line different ]------
  209.          CALL AskItems ("DM",WasX$,ZTrue,"file",ZMarkedFiles$) : _   ' KG062401
  210.          IF ZWasQ = 0 THEN _
  211.             GOTO 58183
  212.       IF WasX$ = "*" THEN IF ZPersonalDnld THEN _
  213.          GOTO 58193
  214. * REPLACING old line(s) by new
  215. 58188 IF ProcessedNew OR MarkingFiles OR NOT ZListOnly THEN _
  216.          ProcessedNew = ZFalse : _
  217.          RETURN
  218.       ZUserIn$(0) = ""
  219.       WasI = ZAnsIndex              ' check whether in dir
  220.       WHILE WasI <= ZLastIndex
  221.          CALL AraAllCaps (ZUserIn$(),WasI)
  222.          ZWasZ$ = ZUserIn$(WasI)
  223.          CALL UnMarkItems (ZMarkedFiles$,WasI,ZLastIndex,WasX,ZTrue)
  224.          Temp$ = ZUserIn$(WasI)
  225. * ------[ first line different ]------
  226.          CALL AllCaps (Temp$)                                        ' KG062401
  227.          IsProto = (LEN(Temp$) = 1 AND _
  228.                     INSTR(ZDefaultXfer$,Temp$) > 0)
  229.          ZOK = IsProto
  230.          WasJ = LastRec + 1
  231.          WasX = INSTR(Temp$,".")
  232.          AltTemp$ = ""
  233.          IF NOT IsProto THEN _
  234.             IF WasX = 0 THEN _
  235.                AltTemp$ = Temp$ + "." + ZDefaultExtension$ _
  236.             ELSE IF WasX = LEN(Temp$) THEN _
  237.                     AltTemp$ = LEFT$(Temp$,WasX-1)
  238.          WHILE WasJ > 1 AND NOT ZOK
  239.             WasJ = WasJ - 1
  240.             GET #2,WasJ
  241.             GOSUB 58191
  242.             IF CanGet THEN _
  243.                MID$(PartToPrint$,13,1) = " " : _
  244.                WasX$ = LEFT$(PartToPrint$,INSTR(PartToPrint$," ") - 1) : _
  245.                ZOK = (Temp$ = WasX$) : _
  246.                IF NOT ZOK THEN _
  247.                   IF AltTemp$ <> "" THEN _
  248.                   ZOK = (AltTemp$ = WasX$)
  249.          WEND
  250.          IF ZOK THEN _
  251.             GOSUB 58189 : _
  252.             IF ZOK OR IsProto THEN _
  253.                WasX$ = MID$(STR$(WasJ),2) : _
  254.                ZUserIn$(0) = ZUserIn$(0) + _
  255.                        WasX$ + _
  256.                        SPACE$(5 - LEN(WasX$))
  257.          IF NOT ZOK AND NOT IsProto THEN _
  258.             CALL QuickTPut1 (ZWasZ$ + " not found - omitted") : _
  259.             FOR WasK = WasI + 1 TO ZLastIndex : _
  260.                ZUserIn$(WasK - 1) = ZUserIn$(WasK) : _
  261.             NEXT : _
  262.             ZLastIndex = ZLastIndex - 1 : _
  263.             WasI = WasI - 1
  264.          WasI = WasI + 1
  265.       WEND
  266.       ZWasQ = ZLastIndex
  267.       RETURN
  268. * REPLACING old line(s) by new
  269. 59143  WasZ$ = ZUserIn$(ZAnsIndex)
  270.        CALL AllCaps (WasZ$)
  271.     IF INSTR(WasZ$,"*") OR INSTR(WasZ$,"?") THEN _
  272. * ------[ first line different ]------
  273.    CALL QuickTPut ("Sorry Wildcards NOT allowed !",1) : _
  274.     RETURN
  275.        ZFileName$ = WasZ$
  276.         ZFileNameHold$ = WasZ$
  277.          CALL BadFile (ZFileNameHold$,BadFileNameIndex)
  278.         ON BadFileNameIndex GOTO 59145,59148,59150
  279.